home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd25.zip / MUTT2.ZIP / WSPACE.MUT < prev    next >
Text File  |  1992-11-09  |  458b  |  14 lines
  1.   ;; wspace.mut : routines that deal with whitespace.
  2.   ;; C Durland    Public Domain
  3.  
  4. (defun
  5.   skip-whitespace HIDDEN { (while (is-space) (next-character)) }
  6.   delete-whitespace     { (while (is-space) (delete-character)) } 
  7.   delete-horizontal-space
  8.   {
  9.     (while (previous-character)        ;; get rid of space on the left
  10.     (if (is-space) (delete-character) { (next-character)(break) }))
  11.     (delete-whitespace)            ;; get rid of space on the right
  12.   }
  13. )
  14.